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ABSTRACT 

The programs in these three booklets are designed to 
demonstrate how the computer can be applied to the problems of many 
disciplines. The problems and the corresponding computer programs 
are, for the most part, quite simple and are designed to be 
” jumping-off points” for students from the high school level up. 
Programs include one or more from each of the following areas: 
mathematics (calculating, algebra, geometry, plotting), statistics, 
physics, chemistry, biology, ecology, social studies, electricity and 
electronics, business, and games (slot machine or one-armed bandit) . 
In addition to the computer program, the source, a description of the 
program, a discussion of the approach used in solving it, a sample 
printout, and the educational benefits are listed for each problem. 
The language BASIC is used for all programs. (Author/JK) 
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INTRODUCTION 



The programs contained in this book are designed to demon- 
strate how the computer can be applied in a meaningful way 
to problems of many disciplines. The problems and the 
corresponding programs are# for the most part, quite simple 
and are designed to be "jumping off points" for students 
from the high school level on up. Programs include one or 
more from each of the following areas: 



Mathematics 

Calculating 
Algebra 
Geometry 
Plotting 
Physics 
Chemistry 
Biology 
Ecology 
Social Studies 
Economics 
Business 

Electricity & Electronics 
Teacher Aids 
Games & Recreation 




All of the programs /'with a very few exceptions, may be run 
on EduSys terns 10 through 90, PDP-8 Family and PDP-11 Family 
computers. Very large programs will not always run on Edu- 
Systems 10 (4K PDP-8) ; this is noted in the program descrip- 
tion. 
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FOR MORE INFORMATION 



For more advanced or comprehensive problems in BASIC, the following 
books are suggested: 



Higgins, G. Albert, Jr. 

The Elementary Functions: An 

Algorithmic Approach 
Kiewit Computation Center 
Dartmouth College 
Hanover, New Hampshire 03755 



Sage, Edwin R. 

Problem Solving With the Computer 
Entelek, Incorporated 
42 Pleasant Street 
Newburyport, Massachusetts 01950 



Coan, James S. 

Basic BASIC 
Hayden Book Company 
New York, N.Y. 



Albrecht, R. & Finkel, L. 

Math I, Math II, Business I 
and Social Studies I 
Tecnica Education Corporation 
655 Skyway Boulevard 
San Carlos, California 97040 



Johnson, D.C., et al 
Computer Assisted Mathematics 
Program (CAMP) - 7 Volumes 
Scott, Foresman & Company 
Glenview, Illinois 60029 



Albrecht, R. , Lindberg, F.. , Mara, W 
Computer Methods in Mathematics 
Addison-Wesley Publishing Company 
Menlo Park, California 94025 
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AREA: Mathematics NUMBER: NAME: DRINKR 

SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 

DESCRIPTION: This program illustrav.es how the computer, used as 

an extended calculator, can solve the following 
problem: 

35 persons per 1000 have high blood pressure. 80% 
of those with high blood pressure drink, and 60% 
without high blood pressure drink. Estimate the 
fraction of drinkers with high blood pressure. 




APPROACH: This problem requires the solution of several simple 

equations. If we let H = the number of people with 
high blood pressure, then: 



H = 35 

And if Hi = the number of people with high blood 
pressure who drink, then: 



HI = .80 * H 



Letting Ll - the number of people with low blood pressure 
who drink yields: 




Ll = .60 * (1000 - H) 

Now, we can solve for the number of drinkers, D: 

D = HI + Ll 

Finally, the percentage of drinkers with high blood 
pressure is: 

X = HI * 100 / D 

The program below solves the problem in a jiffy: 
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FEADY 



5 PHI NT "PROGRAM DRINKF" 

A PFINT 
JPi LET H=35 
?PI LET H1=.A*H 
30 LET Ll*»6*( 1000-H) 

API LET D=H 1 +L1 
5^ LET Y=W* 1 Pipi/D 

API PFINT X!"% DRINKEFS HAVE HIGH BLOOD PRESSURE. " 

70 PRINT H*100/1000J"% OF ALL PEOPLE HAVE HIGH BLOOD PRESSURE." 
99 END 

PPM 

PFOGFAM DRINKR 

5. 766P>63 X DRINKERS HAVE HIGH BLOOD PRESSURE. 

3.5 % OF ALL PEOPLE HAVE HIGH BLOOD PRESSURE. 



FEADY 



EDUCATIONAL BENEFITS: This type of problem can be written directly 

in BASIC without going through the steps 
above. Recognizing this type of problem 
readily will save lots of pencil-pushing 
time. 
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AREA: Mathematics NUMBER: NAME: Bicycl 

SOURCE: Digital Equipment Corp LANGUAGE: BASIC 

DESCRIPTION: The solution to this problem illustrates how the computer 

I can be used as a powerful calculator. The problem is: 

A boy on a bicycle and a man in a car start at the same time from town 
A for town B, 110 miles away. They travel over the same road at 6 and 
40 miles per hour respectively. TThen the man in the car reaches 13 , he 
will stop fcr 15 minutes and then start back again. How many hours 
will the boy on the bicycle have traveled when he meets the car on its 
return trip? 




USAGE: Let's set up our equations first. Remember distance = rate * 

time or T = D/R. Letting Tl be the time the car has traveled before 
it starts the return trip, then: 



Tl 



110 mi + 1 , 
40 mph 4 r 



The bicycle has traveled Tl * 6 mph at the time the car starts back. 
Hence the time until they meet is 



T2 



110 - Tl*6 
40 mph + 6 mph 



The total time is Tl + T2, so now we can easily write a program to 
solve the problem: 




O 

ERIC 
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5 PRINT "PROGRAM BICYCL" 

A PRINT 

10 LFT T 1 = 1 10/40+1/4 
B0 LET TS»< 1 10-6*Tl>/C40+6> 

30 PPINT "CYCLIST HAS TR AVFLED" J T 1 +TR t "HOURS WHEN BOTH MEET." 
99 END 

RUN 

PROGRAM BICYCL 



CYCLIST HAS TRAVELED 5 HOURS WHEN BOTH MEET. 
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Not very difficult and the numbers "come out even." But they don't have 
to. Let's try it over a distance of 112 miles with speeds of 7.5 mph and 
46 mph respectively. The computer solves this one just as easily. Can 
you? 




PEADY 

IP) LET T 1= 1 12/46+ 1 /A 

PPi LET TS=C1 JS-7.5+T1 )/(46+7.5) 

PUN 

PPOGPAM BICYCL 

CYCLIST HAS TRAVELED 4.40 1R69 HOURS WHEN BOTH MEET • 
PFADY 



EDUCATIONAL BENEFITS: Computers can be used as powerful calculators too. 
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AREA: Mathematics NUMBER: NAME: GROUP 

SOURCE: Digital Eauipment Corp. LANGUAGE: BASIC 

DESCRIPTION: This program illustrates a method of solving a mathematical 

word problem by trial and error using the computer. The problem is: 

When 15 girls leave a group of boys and girls* there are 2 boys for each 
girl. After, that, 45 boys leave. Then there are 5 girls for each boy. 
How many girls were in the group before anyone left? 

USAGE: One must recognize that this problem requires the solution of 

two simultaneous equations. Letting G = the original number of girls 
and B = the original number of boys, the equations are: 

(G - 15) x 2 = B 

(B - 45) X 5 = (G - 15) 

It is, of course, possible to substitute the value of B from Equation 1 
into Equation 2 and solve for G. However, the computer permits us to 
get the solution by trial and error, obviously not a very sensible way 
to do the problem by hand. 

The program below has been written to try all possible values of B and 
G between 1 and 100 until a solution is found or until the program runs 
out of combinations. 
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READY 



5 PPINT "PFOGPAM GROUP" 

6 PPINT 

10 FOP G= 1 TO 100 
20 FOP <3=1 TO 100 
P5 LFT T = I + l 

30 IF ?*CG-15)<>B THEN 50 
40 IF 5*CB-45>o<G-15> THEN 50 
45 PPINT G» "GI PLS"»B; "BOYS" 

4R GO TO 90 
50 NEXT B 
60 NEXT G 

70 PPINT "NO SOLUTION" 

90 PPINT I » "COMBINATIONS TRIED" 
99 END 

PUN 

PPOGFAM GPOUP 

40 GIPLS 50 BOYS 

3950 COMBINATIONS TRIED 



PEADY 

EDUCATIONAL BENEFITS: The student can see that the computer can be 

employed to- find a solution to a problem by trial and error, but that it 
must try 3950 possible solutions before the correct one is reached. 
Hence, if a problem can be easily solved by hand, the computer may not 
always be a significant advantage. 
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AREA: Mathematics NUMBER: NAME: SIMUL 

SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 

DESCRIPTION: The SIMUL program illustrates one way in which the 

computer can be used to solve relatively complex simultaneous equations. 




USAGE: The computer can be used to solve simultaneous equations by 

trial and error far faster than we humans can. For example, let's solve 
for x and y in the following equations : 

2 x * 16y. and 3 x _ 27y 
3 

The program, which tries values of x and y between 0 and 100 until it 
reaches a solution or runs out of values is as follows: 



5 PRINT "PROGRAM SIMUL" 

6 PRINT "SOLUTION TO TWO SIMULTANEOUS EQUATIONS" 

7 PRINT 

IPS FOR X»1 TO 100 
20 FOR Y - 1 TO 100 
30 IF RtX<>16*Y/3 THEN 50 
40 IF 3»X<>27*Y THEN 50 
45 PRINT "X ="JX*"Y ="JY 
48 GO TO 99 
50 NEXT Y 
60 NEXT X 

70 PRINT "NO INTEGER SOLUTION" 

99 END 

READY 

RUN 

PROGRAM SIMUL 

SOLUTION TO TWO SIMULTANEOUS EQUATIONS 
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X » 4 Y a 3 



READY 
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Let's try the same problem, but change Equation 2 slightly. 



10 FOP X=1 TO 10 
20 FOP Y=1 TO 10 
40 IF 3'X<>28*Y THEN 50 

RUN 

PROGRAM SIMUL 

SOLUTION TO TWO SIMULTANEOUS EQUATIONS 
NO INTEGER SOLUTION 



READY 



Oh, Oh. What went wrong? 

EDUCATIONAL BENEFITS: The student can see that trial and error, at 

least incrementing by whole numbers, does not always yield a solution, 
even trying 10,000 combinations. There must be another, better way. 

Hint: Try combining the two equations and getting a solution for x 

using program ROOT. Then y can be easily solved for. 
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AREA: Mathematics NUMBER: NAME: BOOKS 

SOURCE: Digital Equipment Corporation LANGUAGE: BASIC 

DESCRIPTION: This program illustrates the solution to a fairly simple 

word problem involving two simultaneous equations. Then, by combining 
the equations and trying fewer combinations, the speed of obtaining the 
solution can be improved 100 fold. The problem is: 

Brown has 48 books; some are worth $3 each, some $5 and others $8. The 
total value of the books is $175. How many of each kind are there if 
there are an even number of $5 books? 

USAGE: The equations for solution are (letting T = number of three 

dollar books; F = five dollar books and E = eight dollar books) : 

T + F + E = 48 

T*3+F*5+E*8= 175 

If we then try all possible combinations of T, F, and E from 1 to 48 for 
each variable, our program would be as follows: 




5 PRINT "ALL POSSIBLE SOLUTIONS FOR BOOKS 

6 PRINT 

7 PRINT "T","F"*"E" 

8 PRINT 

10 FOR T= 1 TO 48 
20 FOR F= 1 TO 48 
30 FOR E»1 TO 4$ 

40 IF <T+F+E> <>48 THEN 70 

50 IF (T*3+F*5+E*8><>175 THEN 70 

60 PRINT T*F*E 

70 NEXT E 

80 NEXT F 

90 NEXT T 

99 END 




PROBLEM" 
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BOOKS 



28- JAM- 71 



2i :03 



ALL POSSIBLE SOLUTIONS FOR BOOKS PROBLEM 



T 



F 



E 



34 

37 

40 



13 

8 

3 



1 

3 

5 



TIME* 7.31 SECS. 



READY 



However, 7.31 seconds is a long time for the computer to work. Let's 
solve for T in both equations by hand and solve the resulting equation 
by brute force on the computer: 

F*2+E*5=31 

In this equation, we can also reduce our limits since we recognize that 
F cannot be greater than 31/2 = 15.5 and E cannot be greater than 
31/5 = 6.2. Making the appropriate program modifications leads to: 



10 

20 FOR F® 1 TO 15 

30 FOR E=1 TO 6 

40 IF f F*2+E*5><>31 THEN 70 

50 

55 LET T=48-F-E 
90 

RUN 

BOOKS 21:06 22- JAN-71 



ALL POSSIBLE SOLUTIONS FOR BOOKS PROBLEM 



T F E 



40 3 5 

37 8 3 

34 13 1 



TIME: 0.16 SECS. 
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12 



Our final refinement is to step F in increments of 2 since we know it 
must be even. 




5 PRINT "SOLUTIONS FOR BOOKS PROBLEM WITH F a EVEN NUMBER" 
20 FOR F=2 TO 14 STEP 2 



RUN 

BOOKS 21:10 22- JAM-71 



i SOLUTIONS FOR BOOKS PROBLEM WITH F a EVEN NUMBER 

r 

It f e 

37 8 3 

f 

| TIME: 0.00 SECS. 

! READY 



EDUCATIONAL BENEFIT: Notice the enormous improvement in computing time 

required for a solution 7.31 seconds to .06 seconds. Brute force 
( \ certainly is inefficient! Perhaps it's worthwhile to think through 

most problems, particularly big ones. The computer may be fast, but 
we just improved its performance by 100 times using a little common 
sense! 
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AREA: Mathematics NUMBER: NAME: SETS-1 

SOURCE: CAMP First Course, Scott, Foresman and Company 

LANGUAGE : BASIC 

DESCRIPTION: Program to determine the intersection of two sets of 

numbers. 

USAGE: Two sets of numbers can be combined to yield a third set by 

the operation of intersection. The intersection of two sets A and B is 
the set that contains all elements that belong to both A and B. It does 
not contain any other elements. The intersection is usually written A^b. 

For example , if M = {0,2,4, 6} and K = { 1, 2 , 3 ,4}, then M^K ={2,4} . 

The computer can be instructed to find the intersection of two sets. A 

program for finding the intersection of set x ={l,3,5, 19} and 

y = {2,5,8, 29} is written below 



5 PRINT "PROGRAM SETS-1" 

6 PRINT 

7 PRINT "THE INTERSECTION OF SETS X AND Y IS:" 

10 FOR X=1 TO 19 STEP 2 

20 FOR Y*2 TO 29 STEP 3 

30 IF X«Y THEN 70 
40 NEXT Y 

50 NEXT X 

60 GO TO 99 
70 PRINT X 
R0 GO TO 50 
99 END 

RUN 



PROGRAM SETS-1 




THE INTERSECTION OF SETS X AND Y IS: 
5 
1 1 
17 



READY 
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Using the computer, complicated sets which would be tedious to do by. 
hand may be examined by defining one or both sets in a data statement. 
In the following example, set y is the same as above, but set x is 
given in the DATA statement. 



5 PRINT "PROGRAM SETS-1" 

6 PRINT 

7 PRINT "THE INTERSECTION OF SETS X AND Y I St" 
10 READ X 

20 FOR Y=2 TO 29 STEP 3 
30 IF X=Y THEN 70 
40 NEXT Y 
50 GO TO 10 
70 PRINT X 
30 GO TO 10 

90 DATA 2*3, 8, 9* 14/ 15,20*21*26*27 
99 END 

READY 



RUN 

PROGRAM SETS-1 

THE INTERSECTION OF SETS X AND Y I St 
2 
8 
14 
20 
26 

OUT OF DATA IN LINE 10 



READY 



EDUCATIONAL BENEFITS: The student is able to see that if there is a 

numerical pattern in the sets which intersect, there is also a pattern 
in the resultant intersecting set. In the first example above, for 
instance, set x steps by 2 and set y steps by 3, hence the intersecting 
set steps by 2x3=6. More complicated sets can be examined by 
computer than can easily be done by hand. 






AREA: Mathematics NUMBER: NAME: TICKET 

SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 

DESCRIPTION: This program introduces the concept of logical branching 

through the vehicle of a simple word problem: 

At a PTA fair, they wish to dispose of an article valued at $18.00 by 
selling tickets. These tickets are numbered consecutively beginning 
with one. Each person drawing a ticket pays in cents an amount equal 
to the number on the ticket, if that number is 50 or less. If the num- 
ber drawn is greater than 50, he pays just 25C. How many tickets must 
be sold so the PTA exactly breaks even? 

USAGE: Letting T = the total money collected and N = the number of 

tickets sold, we can set up a flow chart to calculate the total money 
collected after each additional ticket is sold and compare that sum to 
$18.00. 



T= o 




Having the flow chart puts us just one step away from the program and a 
solution to the problem. 



5 PRINT "PROGRAM TICKET" 

6 PRINT 
10 LET T*0 

15 FOR N*1 TO 2000 

20 IF N<«50 THEN 40 

25 LET T=T+25 

30 GO TO 50 

40 LET T=T+N 

50 IF T>* 1800 THEN 70 

60 NEXT N 

70 PRINT N 5 "TI CKETS SOLD TO COLLECT EXACTLY S"JT/100 
09 END 

PUN 

PROGRAM TICKET 

71 TICKETS SOLD TO COLLECT EXACTLY S 18 



READY 



EDUCATIONAL BENEFITS: This problem can be done longhand, in which 

case it is extremely tedious. On the other hand, most students using 
a short cut method will get the wrong answer (72) . So we see how the 
computer using logical branching can help us solve a deceptively simple 
problem quickly and correctly. 
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AREA: Mathematics NUMBER: NAME: BASKT 

SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 

DESCRIPTION: This program illustrates how the computer can be used to 

solve a problem using exponential convergence. The 
problem is: 

Holding a ball six feet from the floor and letting it drop, a basketball 
player noticed that the ball bounced back up only two-thirds of that 
height (four feet). On the second bounce, the ball rose to only two 
thirds of the second height (two feet, eight inches). The third bounce 
brought it to two-thirds of the previous height, and so on. What was 
the total distance the ball traveled — both up and down — before it came 
to rest? 

USAGE: A diagram can be used to show how far the ball bounces each time. 

o 




We notice that after the 1st bounce, the ball has traveled (at floor 
level) : 



Dl + 2 * D2 or D1 + 2* (2/3 * Dl) 
and that after 2 bounces, the ball has traveled: 

Dl + 2*D2 + 2*D3 = Dl + 2*(2/3*Dl) + 2*(2/3 * 2/3 * Dl) 



Hence, with each additional bounce, the ball travels an additional 
distance of: 

2*D1* (2/3) n or 12*(2/3) n 

EduSystems— expandable, economical 
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Now it is a simple matter to write a program which increments the total 
distance traveled and print out the results after each bounce. 



1 PRINT 

2 PRINT 



’PROGRAM BASKT" 



0 



4 PRINT 

5 LET D= 6 

10 FOR X="l TO 50 
20 LET D=D+12*(2/3)tX 
30 PRINT X*D 
40 NEXT X 
99 END 

RUN 

PROGRAM BASKT 



BOUNCES 



DISTANCE 



1 


14 


2 


19.33333 


3 


22.88889 


4 


25.25926 


5 


26.83951 


6 


27.893 


7 


28.59534 


8 


29.06356 


9 


29.3757 


10 


29.5838 


1 1 


29.72253 


12 


29.81 502 


13 


29.87668 


32 


29.99994 


33 


29.99996 


34 


29.99997 


35 


29.99998 


36 


29*99998 


37 


29.99999 


38 


29.99999 


39 


29.99999 


40 


29.99999 


41 


29.99999 


42 


29.99999 


43 


29.99999 


44 


29.99999 


45 


29.99999 


46 


29.99999 


47 


29.99999 


48 


29*99999 


49 


29.99999 


50 


29.99999 



READY 



O 



EDUCATIONAL BENEFIT* The student can see, by means of a contemporary 
q example, how a progression can be used ^to solve a problem. He also 
]ERJC Learns "to solve a problem which would be quite difficult to do by hand, 
t n I ,, n , e specially after the first few terms. 
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AREA: Mathematics NUMBER: NAME: PROGRS 

SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 

DESCRIPTION: Sometimes the computer is used to do a problem in an en- 

tirely different way than we humans might approach the 
same problem. For example, given the following tables 
of values: 

X 1 2 ') 3 4 etc. 

Y 10 17 26 37 

What is the value of X when Y is 2602? 

APPROACH: We noticed that the difference between successive values 

of Y increases by 2 each step; i.e., 7, 9, 11, etc. 
Therefore, if we stepped from Y = 10 to 2602 in steps 
of Z, the step itself would have to be incremented by 
2 for each new step. If we write a program to do this 
as well as count the number of steps, X, we should be 
able to solve the problem. 




5 PRINT "PROGRAM PPOGRS" 

6 PRINT 
10 LET X= 1 
2 0 LET 

25 LET Y* 1 0 

30 LET Y=Y+2 

40 LET Z* Z+2 

50 LET X=X+1 

60 IF Y<2602 THEN 30 

00 PRINT "x =";x*"Y *";y 

99 END 

READY 

RUN 

PROGRAM PROGRS 
X = 49 Y * 2602 



READY 
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EDUCATIONAL BENEFIT: 



It's often possible to solve a problem using 
the computer in a manner quite differently 
than one would use by hand. How would you 
have solved this problem not using the com- 
puter? 
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AREA: Geometry NUMBER: NAME: LADDER 

SOURCE: Digital Equipment Corporation LANGUAGE: BASIC 

DESCRIPTION: The ladder program shows how the computer can be used to 

calculate the solution to the following word problem: 



A ladder 25 feet long is placed so that its foot is 7 feet from the base 
of a building, when the top of the ladder slipped 4 feet down the side 
of the building, how far did the foot of the ladder slip? 

USAGE: The diagrams below show the two ladder positions. 





By the Pythagorean theorem we know that a2 + b2 = c2, hence, the 
equations needed to solve the above problem are: 

x = Y 25 2 - 7 2 
y = Y 25 2 - (x-4) 2 

and the amount of slippage of the base is: 

z = y - 7 

The program to do the problem is as follows: 




er|c 
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READY 



5 PRINT "PROGRAM LADDER" 

6 PRINT 

IP) LET X»S0R(S5*25-7*7) 

2 PI LET Y=SQR(25*25-(X-4>*(X-4> > 

30 LET Z=Y-7 

40 PRINT "LADDER BASE SLI PPED" iZi "FEET • " 
99 END 




RUN 

PROGRAM LADDER 

LADDER BASE SLIPPED 8 FEET- 



READY 



EDUCATIONAL BENEFITS: While the arithmetic in the problem above is not 

particularly "messy", it still is no great joy to solve by hand. How- 
ever, the computer would be equally happy to do the problem if the ladder 
is 27.83 feet long and it wac 7.62 feet from the wall originally. Would 
you? »•' 

10 LET X*SQR(27.83tP-7.62»2> 

20 LET Y»S0R(27.83t2-(X-4)t2) 

30 LET *«Y-7.62 

PUN 

PROGRAM LADDER 

LADDER BASE SLIPPED 8.386132 FEET. 

READY 
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AREA* Geometry NUMBER? NAME: Area-1 

SOURCE: Computer Methods in Mathematics LANGUAGE: BASIC 




DESCRIPTION: The problem is to solve for the shaded area of the 

figure below for any value of the radius, R. 




APPROACH: We start by remembering that the area of a circle and 

square are calculated as follows: 



A circle 

A 

square 



TT * R 2 

SIDE 2 or (2 * R) 2 



The difference in area between a square and a circle 
inscribed within its borders is: 



^ A A square " A circle 
and the area of one corner is: 



^corner -A A/4 



Now, let's write the program to perform this calculation 
for any input value of R. 




EDUCATIONAL BENEFITS: 




By trying different values of R, the student 
can determine relationships in areas as a 
function of the components. Let's try several 
values of R and see what happens. 
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t 5 PRINT "PROGRAM AREA-1" 

6 PPINT 

7 PPINT "WHAT IS THE RADIUS’* J 

i 8 INPUT R 

I 9 SP. I NT 

1 1 0 LET P=3* 14159 

PC 1 LFT A1*P*P»2 
30 LFT A2*<2*R>t2 
| 40 LET D=( A2-A 1 )/4 

50 PRINT "AREA OF ENCLOSED CORNER IS";D 
99 END 

I 

j RUN 

j PPOGPAM APEA-1 

| WHAT IS THE RADIUS? 1 

APEA OF ENCLOSED CORNER IS .S14602?5 



READY 

PUN 

PROGRAM APEA-1 

WHAT IS THE RADIUS? 10 

AREA OF ENCLOSED CORNER IS 21*46085 



READY 

RUN 

PROGRAM APEA-1 

WHAT IS THF RADIUS? 100 

AREA OF FNCLOSED CORNER IS 2146*025 




READY 

RUN 

PROGRAM APEA-1 

WHAT IS THE RADIUS? 2*158652 
AREA OF ENCLOSED CORNER IS 1 



25 



READY 




AREAs Geometry NUMBER: NAME: CRSCNT 

SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 



DESCRIPTION: The computer is used to aid in the solution of the 

following problem. A crescent figure is bounded by 
a semicircle ABC whose radius is 5 inches and an 
arc ADC, the radius of whose circle is 10 inches. 
Find the area of the crescent. 




APPROACH: In this problem, like any in which the computer is used, 

the student must recognize the fundamental formulae and 
algorithms to be used. If he cannot do that, he is 
stuck. To aid us in completing this problem, it will be 
helpful to complete the drawing to show more of both 
circles . 



7 

ERiC 




Some things should now be apparent. In particular, since ABC is 
a semicircle, distance AEC is equal to 2*Rl = 10. Hence, triangle 
ACF is equilateral. Therefore, the area of wedge ADCF equals 1/6 
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the area of the large circle. Hence/ the area of the crescent is 



Area crescent = Area ABCE - Area ADCE 



- * Area small circle “ C Area wedge “ Area triangle j 

= A. * ir * Rl 2 -£~- * IT * Rl 2 - -J- * R2 *\Jr2 2 - 1 



We can now substitute 5 and 10 for Rl and R2/ reduce the equations 
and solve. The typical math text would ask that the answer be 
left in radical form and not figured for If . After a good bit of 
manipulation, the student would finally get down to an answer of: 

Area crescen t = 25 ~ 5 ) 

However, using the computer, we can get a final solution without a 
lot of hand reduction. 

I Pi LET P 1=3 • 1 4 ! 59 

80 opTMT "AREA OF CRESCENT IN SQUARE INCHES IS"; 

30 PRINT l/a*Pl*5»8-l/6*Pl*10t8+l/'8*10*SQRC10tR-5t8> 

99 END 

READY 

FUN 

APFA OF CRESCENT IN SQUARE INCHES IS 30.81131 



READY 



EDUCATIONAL BENEFITS: The student can see that the computer won't 

help him much unless he knows the problem 
fundamentals and can "teach" the computer 
how to help him. He also learns that the 
computer is happy to grind through calcula- 
* tions that aren't very pleasant to do by 
hand. Of course, if he wants to reduce the 
equation as far as possible and then use the 
computer, that approach works too. 

10 LET Pl = 3» 14 159 

80 PRINT "AREA OF CRESCENT IN SQUARE INCHES IS"; 

30 PRINT 85*<SQR<3>-Pl/6> 

09 END 






READY 

RUN 

AREA OF CRESCENT IN SQUARE INCHES IS 30.81131 




READY 




AREA: Statistics NUMBER: NAME: FLIP— 1 

SOURCE: Basic BASIC, Hayden Publishing Co. LANGUAGE: BASIC 

DESCRIPTION: This program makes use of the random number generator 

in BASIC to flip an imaginary coin and do a simple 
tabulation of the number of heads which come up. Ten 
sequences of 50 flips are tabulated. 



APPROACH: Since the random number generator, RND, produces numbers 

between 0 and 1, we must have a way of splitting the 
numbers in half. One way, of course, is to ask whether 
the random number generated is greater or less than .5. 
Another way, which illustrates the use of the integer 
function, is as follows. Multiply the random number 
generated by 2 and then take the largest integer value 
contained in the result. If 0, let it be a tail; 1, 
a head. The statement to set the value of the flip is: 

LET F = INT (2 * RND (1) ) 

Now, let's see what the whole program looks like. 



1 PRINT "PKOtiRAM FLIP-1" 

4 FOR Y=1 TO 10 
b LET C=0 
10 FOR X=1 TO 50 
20 LET F=INT(2*RND< 1 > > 

30 IF F = 1 THEN 60 
40 PRINT "T"; 

50 tiO TO 100 

58 REM C COUNTS THE NUMBER OF HEADS 
60 LET C=C+1 
70 PRINT "H"; 

100 NEXT X 
110 PRINT 

120 PRINT "HEADS"; C; "OUT OF 50 FLIPS" 
122 PRINT 
125 NEXT Y 
999 END 
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~:EADY 



KUN 

V'ciOoKAM FLIP-1 

I T HT TTTTHTTTTHTHTTHHHTTTTHHHTTHHHHHTHHHHHHTTHHTTHT 
-IADS 2A OUT OF 50 FLIPS 

l PTTHHHTHHTHHHHTTTHTH rHHTTHHHHHHTTTHHTHTTHTTTTTHTT 
PFADS 2 5 OUT OP 50 FLIPS 

1 HTTHTHHTTTHHHHHTHTHTTHHHTTHTHHTTHHTHHTTHTTHTHTHTT 
HEADS 25 OUT OF 50 FLIPS 

PTHTTTHTTTTHHHHHHHTHHI THTTTTHHHHTHTTTTHTTHTHHTTTHT 
HEADS 23 OUT OF 50 FLIPS 

HP THTHTTTHHTHTTTHTTTHTHTTTHHTTTTTTHTHTTHHHHTHTHHTT 
RcADS PI OUT OF 50 FLIPS 

1 HHHTHHTTTHHTHTHTHHHTHTHTTTTTTTTHHTHHHHHTTHHTTTHTH 
HEADS 25 OUT OF 50 FLIPS 

THHTHTHHTHHTHHTH THHHHHHTTHTTHHHHTHHTTTHTHHHHTTHHHT 
HFALs 31 OUT OF 50 FLIPS 

TTTHTTTTHTHHTTH THTHTHTTHHTTHTTTHTHHHTHHHHTHHHHHHHH 
HEADS 27 OUT OF 50 FLIPS 

HHHhlHHHHHTHHHTHTHHTTHHHH 1 THHTTHTHTHHTTTTTHTTTTHHH 
HFADS 29 OUT OF 50 FLIPS 

TTTH 1HTTTTTTHTHTHTTTHTTHHTHTHHHTTHHHTHHHTHTHHHTHTT 
HEADS 23 OUT OF 50 FLIPS 



A simple addition lets us compute the percentage 
500 flips which were heads. 



P L.FT Cl =0 

t»5 LET C1=C1+1 

130 LET A=C 1*1 00/500 

133 PH I NT 

135 PRINT A;"% OF 50O FLIPS V/ERE HEADS" 



HUN 



PROGRAM FLIP-1 

TTHTTTTTHTTTTHTHTTHHHTTTTHHHTTHHHHHTHHHHHHTTt”- 

HEADS 2 A OUT OF 50 FLIPS 

l'HHHHHHHH 

THTTHHHTHHTHHHHTTTHTW— 

HEADS 25 OUT r ' 

..nnTTHHHHTTHHTTHTHTHHTTTTTHTTTTHHH 
-uf OF 50 FLIPS 

1 TTHImT TTTTTHTHTHTTTHTTHHTHTHHHTTHHHTHHHTHTHHHTHTT 
HEADS 23 OUT OF 50 FLIPS 



50.6 % OF 500 FLIPS WERE HEADS 







( 



AREA: Business NUMBER: 

SOURCE: Digital Equipment Corp. 



NAME : SORT-1 

LANGUAGE : BASIC 



DESCRIPTION: 



In business data processing, it is frequently necessary 
to sort a list of data into order. For example, some 
lists must be sorted by age, zip code, weight, inventory 
level, etc. This program is one way in which sorting 
can be done. The problem is to read in 10 numbers as 
DATA and then print them out sorted from smallest to 
largest. 

APPROACH: In this type of problem, it is best to start with a flow- 

chart . 



t 




9 

ERIC. 
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PFADY 



LIST 

2 DIM AC 10), I C 10) 

5 PRINT "RANDOMLY ORDERED DATA" 

10 FOP 1*1 TO 10 
20 READ AC I ) 

30 PRINT AC I ) i 
40 NEXT I 
50 LET C*0 

55 REM CHECK IF ALL ELEMENTS IN LIST ARE ORDERED 
60 FOR 1*1 TO 9 
70 IF AC I + 1 ) <AC I ) THEN 800 
80 NEXT I 

85 FEM C INDICATES IF AN ELEMENT WAS REORDERED 
90 IF C*0 THEN 300 
100 GO TO 50 

195 REM PEOPDEP ONF FLEMENT 
800 LET A*ACI) 

810 LET AC I )*ACI+1 ) 

880 LET AC 1 + 1 )*A 
830 LET C*1 
840 GO TO 80 

300 PRINT 

301 PRINT 

308 PRINT "ORDERED DATA" 

310 FOP 1*1 TO 10 
380 PRINT ACI); 

330 NEXT I 

400 DATA 10,5,1,9,4,8,3,7,2,6 
999 END 

READY 





RUN 

RANDOMLY ORDERED DATA 
10 519483726 

ORDERED DATA 

123456789 10 

READY 



400 DATA 62,64,89,100,95,73,50,95,80,87 
RIJN 



RANDOMLY 


ORDERED 


DATA 










62 64 


89 


100 


95 73 


50 


95 


80 


87 


OPDERED 


DATA 














50 68 


6/1 


73 


88 87 


89 


95 


95 


100 


READY 

















O 





31 



tami ng fl gSTt’V . , 




AREA: Electricity NUMBER: 

SOURCE: Computer Methods in Mathematics 



NAME: Resist 

LANGUAGE: BASIC 



( 



DESCRIPTION: The problem is to computer the equivalent resistance 

between points A and B for the circuits below: 



Rl 



R2 

— ^VW - 



— W\r 
R.3 



6 



A - 



-AAA- 

R.1 



AW 

R2 



APPROACH: 



WV 

We must remember that in series, resistance is additive, 
that is: 



— ^1 + ^2 

Whereas in parallel, the resultant resistance is com- 
puted as follows : 



-L = X + 

Rt Ri 



ir 2 — 




Given these relationships , it is a simple matter to 
write a program to compute the resultant resistance for 
the two circuits above. 



5 PRINT ’’PROGRAM RESIST” 

6 PRINT 

1(9 PRINT ”R 1 ” i 
15 INPUT R 1 
2(9 PRINT ”R8”I 
25 INPUT R2 
3(9 PRINT ”R3”S 
35 INPUT R3 

m LET R4*»l/( 1/R1+ 1/R2J+R3 
5(9 PRINT 

6(9 PRINT "R4 ■”JR4 
99 END 

computers are for kids — ^ - mm EduSystems— expandable, economical' 



RUM 



PROGRAM PESIST 

PI? 330 
PP? PPO 
P3? no 

PA = SAP 



PF.ADY 

RUM 

PROGRAM PESIST 

Rl? 10 
PP? 10 
P3? lO 

RA * 15 



READY 

For the second circuit, we need change only one statement 
in our programs 

AO LET PA»l/< 1/R1+1/R2+1/R3) 

RUM 

PROGRAM PESIST 

PI? 330 
PP? 820 
F3? 110 

PA a 60 



READY 

RUM 

PROGRAM PFSIST 

Rl? 10 
R8? 10 
R3? 10 

RA a 3.333333 



PEADY 



EDUCATIONAL BENEFITS 




The computer can be used as a tool to Aid in 
solving all kinds of practical problems. It 
is not necessary for a student to get bogged 
down in mathematical calculations when he is 
eagerly learning about other things. 




PROCESS WITH MICROFICHE AND 
PUBLISHER'S PRICES. MICRO*. 
FICHE REPRODUCTION ONLY. 



' Basic Applications Programs (Set 2) 










*I.S. DEPARTMENT OF HEALTH. 

education & welfare 



BASIC APPLICATION PROGRAMS 



-Set 2- 



The programs contained in this series are designed to 
demonstrate how the computer can be applied in a meaning- 
ful way to problems of many disciplines. The problems 
and the corresponding programs are, for the most part, 
quite simple and are designed to be "jumping off points" 
for students from the high school level on up. 



All of the programs, with very few exceptions, may be 
run on EduSystems 10 through 90, PDP-8 family and PDP-11 
family computers. Exceptions are noted in the program 
descriptions . 



Additional copies of BASIC Applications 
Programs may be obtained from? 



Direct Mail Department 
Digital Equipment Corporation 
Maynard, Massachusetts 01754 



Price: Set 1 (15 problems) 

Set 2 (19 problems) 



$ 1.00 

$1.25 



a* 



BASIC APPLICATION PROGRAMS 



Table 


of Contents (Sets 1 and 2) 


BASKT 


Demonstrates exponential convergence . 


BICYCL 


Solves simple time-speed-distance problem. 


BOOKS 


Demonstrates method of improving upon brute 
force to solve simultaneous equations. 


CONVRG 


Converges on e andrrby 3 methods. 


DRINKR 


Solves simple drinking/blood pressure 
relationship. 


GROUP 


Demonstrates brute force vs. substitutional 
solution of simple equations. 


PASCAL 


Method of generating Pascal's triangle 
using random numbers. 


PLOTFN 


Plots any function. 


PROGRS 


Solves a number progression problem. 


QUADRT 


Solves for the roots of a quadratic equation 


ROOTS 


Finds the roots of any function between -20 
and 20. 


ROUNDOFF 


Rounds off numbers to any number of places. 


SETS-1 


Determines the intersection of two sets of 
numbers. 


SIMUL 


Solves simultaneous equations by brute force 


TICKET 


Introduces the concept of logical branching. 


TUTOR- 1 


Drill and practice with time-speed-distance 
problems. 


GUESS 


Binary search guessing game vs. the computer 


LUNAR2 


Simulates the landing of a lunar module on 
the moon. 



Geometry 



Plotting 



Statistics 



Business 



Biology 



Physics 



Electronics 



AREA-1 



Solves for the area under a curve by 
equation. 



CRSCNT Solves for the area of a crescent (not 

generalized) . 

LADDER Solves the slipping ladder problem by 

Pythagorean theorem. 



DIAMON 

PLOTFN 

SINEX 

3DPL0T 



Plots an N by N diamond matrix. 

Plots any function 
Plots a sine wave 

Plots any three dimension functions. 



FLIP-1 Flips a coin. 

GUESS Binary search guessing game vs. the computer. 



DEPRECIATE Demonstrates 3 methods of depreciation. 
ROUNDOFF Rounds off number* to any number of places. 

SORT-1 Sorts a list of numbers. 



EVOLU 



Demonstrates evolutionary mutations of 
pepper moths. 



KINEMA 

LUNAR2 

PHOTOE 

UELEC 



Tests knowledge of kinematics. 

Simulates the landing of a lunar module on 
the moon . 

Demonstrates photo electric effect. 
Produces tables of electric potential. 



INDUC Determines value of an unknown inductor. 

RESIST Computes equivalent resistance for 

resistor networks. 



& 





AREA: Mathematics NUMBER: NAME: CONVRG 

SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 

DESCRIPTION: The CONVRG series of programs will calculate: 

1. by an infinite series. 

2 . Tr by inscribed and circumscribe polygon. 

3 . rr by infinite series (1 - 1/3 + 1/5 - 1/7 + 1 / 9 ...) 

APPROACH: The above methods are commonly taught to show how and may 

be accurately calculated; however, it is difficult to carry out the 
calculations very far using pencil and paper alone. 

The portion of the program to converge on e using the series 

1 + 1/1 + 1/2 + 1/6 + 1/24 + 1/120 +. . . ) 

is as follows: 



100 LET E= 1 
IIP! LFT T = T + 1 
1 PO LFT D= 1 
ni? F'Qf j= i to r 
l/in lft n=p*.i 

15'* VKVT .) 

1*0 LFT F = F + 1/D 
170 ni’TMT F. 
i *o ro to iip 

QQQ FMP 



PPM 




P.5 

P.666657 
P. 70*333 
P . 7 1 6667 
P . 7 1 *056 
P • 7 1 *954 
P. 7 1 «P7<J 

O. 7'*P*1 

P. 71*P«P 
P.71SPRP 
P. 71 RP*P 

^BDSBDID— 
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The portion of the program to converge on Pi by means of inscribed 
and jumscribed polygons is as follows: 



10 LET M=6 

m LET M=2*N "'2£ 

30 LET X=360/<N*57. 29578) 

40 PRINT N*5IN(X)*C0S<X)/2> N*TAN<X>/2 
50 GOTO 20 
99 END 

HEADY 




RIJN 



2 • 598076 

3 

3.105829 
3.132629 
3*13935 
3. 1*1032 
3*141453 
3* 141558 
3*141584 
3*141591 

3. 141592 

3. 141593 

3. 141593 



3*464102 

3*21539 

3*15966 

3*146086 

3*142715 

3* 141873 

3.141663 

3*14161 

3.141597 

3. 141594 

3. 141593 

3.141593 

3.141593 




4-3,\*7‘2. --SicAeei poltjcjo* ^ 



rC 



The third option, converging on Pi using an infinite series converges 
very slowly. Therefore, only every 500th value is typed out. 



300 LET S= 1 

310 LET 1=1 

320 LET 0=0+1 

330 LET P=p+S/T 

340 LET T=T+P 

350 LET S=-S 

360 TF 0<499 THEN 320 

370 LET 0=0 

380 PPTNT P*4 

390 GO TO 320 

999 END 



PPM 



3* 143597 
3. 14059 
3* 142261 
3* 141091 
3. 141994 
3*141259 
3. 141879 
3*141342 
3.141816 
3* 141392 
3*141775 
3*141426 

eric 
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AREA: Mathematics NUMBER: NAME: GOLDBACH 

SOURCE: CAMP First Course, Scott, Foresman and Co. LANGUAGE: BASIC 

DESCRIPTION: This is the description of the program exercise as it 

appears in the CAMP text (page 200) . 

"Goldbach's Conjecture is one of the famous unproved theories in mathe- 
matics. Many people have searched for a counter-example to prove that 
the following claim is false: Every even number E greater than four is 

the sum of two odd prime numbers. Study the program "Goldbach" which 
will print out each even number E, where E<6<50, and two odd prime 
numbers whose sum is E. Examine the output from the computer. Does 
this program "prove" the conjecture. 

The teacher's guide is quick to point out that it proves the conjecture 
for Ej£50, but that's all. 

USAGE: Load Goldbach and type RUN. No input is required. This program 

has nested loops which take time. Running time is in minutes. 

EDUCATIONAL BENEFITS: The student has whole new ways to approach theorem 

proving when the computer is available to try lots of cases. 



T 

ERIC 
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LIST 



5 PRINT "GOLDBACH" 

10 FOR Fa 6 TO 50 STEP P 

15 FOR Pa 3 TO E-3 

P0 FOR F=8 TO P-1 

P5 IF P/F=INT(P/F) THEN 65 

30 NEXT F 

35 FOP Na 3 TO E-3 

40 FOP Da p TO N-l 

45 IF N/D= INTfN/D) THEN 60 

50 NEXT D 

55 IF P+NaE THEN B0 
60 NEXT N 
65 NEXT P 

70 PRINT "CONJECTURE FALSE FOF"E 
75 GO TO 99 
90 PRINT E"a"p"+»N 
R5 NEXT E 
99 END 

READY 



RUN 



GOLDBACH 
6=3 + 3 
R = 3 + 5 



10 


= 


3 


+ 


7 


IP 


= 


5 


+ 


7 


1/1 


s 


3 


+ 


1 1 


16 


s 


3 


+ 


13 


18 


= 


5 


+ 


13 


P0 


= 


3 


+ 


17 


PP 


= 


3 


+ 


19 


P/i 


= 


5 


+ 


19 


P6 


=: 


3 


+ 


P3 


PR 


= 


5 


+ 


P3 


30 


= 


7 


+ 


P3 


3P 


s 


3 


+ 


P9 


3/i 


= 


3 


+ 


31 


36 


s 


5 


+ 


31 


3R 


= 


7 


+ 


31 


/I0 


= 


3 


+ 


37 


4 2 


= 


5 


+ 


37 


1\i\ 


= 


3 


+ 


/i 1 


/I6 


= 


3 


+ 


Zi3 


/ifl 


= 


5 


+ 


43 


50 


s 


3 


+ 


z*7 





READY 



c 




AREA: Mathematics NUMBER: 

SOURCE: Digital Equipment Corp. 



NAME : PASCAL 

LANGUAGE: BASIC 



DESCRIPTION: This program simulates the dropping of N balls through the 

following array of K levels. It is assumed that each ball is equally 
likely to fall to the left or right at each point in the array. After 
each group of balls has been dropped, the number of balls in each 
basket (from left to right) is typed out. 



The number of balls landing in the various "baskets" at each level, when 
reduced to the lowest common denominator, should approximate the numbers 
in Pascal's Triangle. Do they? Write a program to determine how close 
you come. You should be able to observe many interesting things about 
Pascal's Triangle. What are the sums of the numbers in each row? What 
is the progression of numbers in each diagonal? 



( 



5 

6 
10 

15 

16 
17 
10 
80 
30 
35 
40 
50 
90 

100 

110 

180 

130 

140 

145 

150 

160 

999 



PRINT "PROGRAM PASCAL" 

PRINT 

DIM B( 10) 



PRINT "HOW MANY BALLS"; 
INPUT M 

PRINT "HOW MANY LEVELS"? 

INPUT K 

PRINT 

-FOR M= 1 TO M 

LET T=0 

FOR L=1 TO K 

IF RND< 1 )>.5 THEN 100 

LET T=T+ 1 

NEXT L 

LET B(T+1 )=B(T+1 )+l 
NEXT N 

FOR 1 TO ( K+ 1 > 

PRINT L*B(L) 

LET BC L) =0 
NEXT L 

GOTO 6 • • .... — 

END 




/\/\/\/\ 



U U U Lt U LI 



i 



READY 



o 

ERIC 

\ 
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1 i 

2 I 

13 3 1 

1 Ar 6 4- I 

^ io lo i 

Pascal ' s Triangle 
EduSystems— expandable, economical- 



j:' FUN 

j 1 

| PROGRAM PASCAL 

i HOW MANY BALLS? 1000 

I HOW MANY LEVELS? 1 

f 1 506 

f 2 494 



i HOW MANY BALLS? 1000 

\ HOW MANY LEVELS? 2 



1 252 

2 501 

3 247 



HOW MANY BALLS? 1000 
HOW MANY LEVELS? 3 



1 

2 

3 

4 



117 
393 
376 
1 14 



HOW MANY BALLS? 1000 
HOW MANY LEVELS? 4 






1 

2 

3 

4 

5 



56 

250 

366 

254 

74 



HOW MANY BALLS? 1000 
HOW MANY LEVELS? 5 



t 



1 

2 

3 

4 

5 

6 



30 

135 

321 

317 

160 

37 



ERLC 

krliTiliTTimi^iiJ 



HOW MANY BALLS? 1000 
HOW MANY LEVELS? 6 



1 

2 

3 

4 

5 

6 
7 



16 

102 

225 
323 

226 
93 
15 



HOW MANY BALLS? 
tC 



READY 
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AREA: Mathematics NUMBER: NAME: QUADRT 

SOURCE: Digital Equipment Corporation LANGUAGE: BASIC 

DESCRIPTION: For any input values a, b, and c of a first degree quadratic 

equation (ax 2 + bx + c = 0) , this program computes the roots 
of the equation. 

APPROACH: Based on the quadratic theorem, given ax2 + bx + c = 0, then 

-b + V b 2 - 42c 



Assuming 


a, b, and c 


applied : 




1 . 


If b^ - 4ac 


2. 


If b 2 - 4ac 


3. 


If b 2 - 4ac 




unequal . 



are real numbers, the following principles are 



is positive, then the roots are real and unequal, 
equals 0, then the roots are real and equal, 
is negative, then the roots are imaginary and 



The program and several sample runs are on the reverse. 
PUN 

THIS PROGRAM SOLVES FOR THE FOOTS OF A 
QUADRATIC EQUATION. PLEASE INPUT THE FOLLOWING: 
VALUE OF A? 1 
VALUE OF B? 9 
VALUE OF 0? J 

THE FOOTS ARE 
-1 



© 

J 

ERIC 



THIS PPOGPAM SOLVES FOR THE ROOTS OF A 
QUADRATIC EQUATION. PLEASE INPUT THE FOLLOWING! 
VALUE OF A? PI 
VALUE OF B? 9 
VALUE OF C? A 

THIS IS A FIRST DEGREE EQUATION. 
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np^PY 



! P 
PP 
PP 
P/i 
P* 
pq 

PP 

R/i 

35 

/ip 

/J5 
/i 7 
5 f* 
55 
5* 
5* 
fa 

*P 

65 

70 

75 

RP 

^P 

R4 

QP 



optVT "THIS PROGRAM SOI..VFS FOP T«F FOOTS OF A M 

PP TNT "OUADPATTC EPUATTON. PLFASfe INPUT THF FOLLOWING 

PPTNT "VALUF OF A"* 

INPUT a 

PRINT "VALUE OF R" ; 

INPUT R 

PRINT '‘VALUE OF C"; 

INPUT C 
PRINT 

LFT F = PtP-/i*A*C 
TF A<>a T w KM 5P 

PPTNT M TPTS TS A FT PST DFGPFF EPUATTON." 

GOTO PP 

PFINT "THF FOOTS ARB* 

TF P<P THEN RP 
PPINT 

TF P=?p THEN 7P 
PPTNT (-P+SPFCF) >/P*A 
PPTNT ( -B-SPFCR) )/P*A 

GOTO OP ' 

PPTNT -P/P* A 
GOTO OP 

PPTNT "IMAGINARY" 

PPTNT ( -P/P* A ) * " ♦ "SSPRC-P)/P*A5 M *!" 

PPTNT (-R/p*A)? M - "5 SOP(-P)/P*A?" *1" 

END 



PUN 

THIS PROGRAM SOLVES FOP THF ROOTS OF A 

OTta DP AT T C EPUATTON. PLEASE INPUT THE FOLLOWING: 

VALUE OF A? P 

VALUE OF P? 5 

VALUE OF C? P 

THF FOOTS APF 

-P 

-R 



PFADY 



RUN 

THIS PROGRAM SOLVES FOR THE ROOTS OF A 
OTTADFATTC FQT.IAT I ON • PLEASF. INPUT THE FOLLOVING t 
VALUE OF A? 4 
VALUE OF B? P 
VALUE OF C? A 



THF FOOTS APE IMAGINARY 
-4 + 15.40193 *1 

-4 - 15.40193 *1 



READY 



45 




AREA: Mathematics NUMBER: NAME: ROOTS 

SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 

DESCRIPTION: ROOT finds all the roots of a function ( ANY FUNCTION I ) 

between -?0 and 20. The function may be quadratic, cubic, trigonometric 
or any combination. 

APPROACH: The method used here involves evaluating the function at 

incremental values, finding places where the value of the fu iction 
changes sign and then, by successive approximations, finding the zero 
point. This method is similar to the commonly taught "Newton's Method." 

USAGE: Before typing RUN, enter the functi jn to be evaluated as a DEF 

FNA(X) statement as line 100. Then type RUN. For example: 

100 DEF FNA(X) = 2*Xf‘3+ll*X*2~31*X-180 

100 DEF FNA(X) = SIN (X) -.5 

100 DEF FNA(X) = X-4 

EDUCAiTI ONAL BENEFITS: The average student (especially in high school) 

does not have a thorough understanding of the very important concept 
of solving a function, much less an ability to do so for functions of any 
complexity. The computer lets them become very knowledgeable and 
confident in this area. 




^BOBODSO- 



computers are for kids 



EduSystems— expandable, economical 



LT ST 



|d ffl DFF FNA(Y>=?*xt 3 + ll*xtP - 31 *x - IRd 

1 Id LFT 7 1=-P00 

1P0 FOF I = -l«3. <5 TO Pd 

13d IF SGNC FNA< I > >=SGN(FNACT + 1 > > THEN 3dd 
1A0 LFT K= I 
150 LFT Jal+l 

16d IF FNACK)<FNAC J> THEN Pdd 

17d LFT 7 = K 

1R0 LFT K«J 

100 LFT J=7 

800 LFT 7, = (K+J>/8 

Pld IF FNAC 7 ) <0 THFN 240 . 

PP0 LET J-7 
P30 GO TO P50 
p/id LET K=7 

P50 IF ABS( FNA(7))>5»000000E-05 THEN 800 
Pfid LET 7«SGN(7)*TNTC ARS(7.)*10000+.5>/10000 
870 IF 7=7 1 THEN 300 
P«d ppiNT ,, F( ,, 7’ , )=0" 

P90 LET 71=7 
30d NFYT I 
310 FND 

FEADY 

100 DFF FNA(y>=y-/i 
PI IN 



F( A >=d 



FEADY 

10d DFF FNA(X>=SIN(X>-.5 
PUN 



F( - 1 R • 3P59 )=0 
F<-16. P315 >=0 
FI-1P.04PR )=0 
FI-9.9AR3 >=0 
F( -5 • 7506 )=0 
FI-3.6651 >=0 
F( .5236 )»0 
F( P.6179 )=0 
F( 6.R06R )=0 
F( R .00 1 1 )=0 

F< 13.00 >=0 
F( 15.1R44 )=0 

F( 10.3738 3*0 



o 




I 



I 



READY 

100 DFF FNA (X > =P*X 1 3 + ll*Xt2 - 31*X - 1R0 
FUN 

F( -5 )=0 
FI-4.5 )=d 
F( A )=0 




